function  para = rsts_prtr(msel)
% RSTS_PRTR
% sets parameter transformation type and arguments
%
% upadted:  07/19/2005
% renamed:  05/17/2006

global fnames_;

% parameter specification index
global msel 

% load parameter specification

lfile    = ['para_spec' num2str(msel) '.txt'];     

para= load(lfile);
%--------------------------------------------------------------------
%      Parameter fix according to prior specification
%--------------------------------------------------------------------
prior = feval(fnames_.prior,msel);
para(:,1) = para(:,1).*prior.maskinv;
